home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.5 KB  |  81 lines
  1. 100 rem spritedaten links gehen
  2. 110 rem
  3. 120 rem belegt bloecke 136-143
  4. 130 rem
  5. 140 print"[147]sprite-daten 2 werden uebertragen."
  6. 150 rem **********phase 1**************
  7. 160 for n=8704 to 8766:read q:poke n,q:next
  8. 170 data 0,10,0,0,42,128,1,70,128
  9. 180 data 1,85,160,0,85,160,0,21,8
  10. 190 data 0,7,0,0,15,0,0,61,64
  11. 200 data 0,255,80,0,255,212,1,255,212
  12. 210 data 5,255,80,5,63,64,0,42,0
  13. 220 data 0,170,0,2,175,128,2,131,160
  14. 230 data 2,128,229,2,144,53,21,81,84
  15. 240 rem **********phase 2**************
  16. 250 for n=8768 to 8830:read q:poke n,q:next
  17. 260 data 0,10,0,0,42,128,1,70,128
  18. 270 data 1,85,160,0,85,160,0,21,40
  19. 280 data 0,7,0,0,15,0,0,61,192
  20. 290 data 0,253,64,0,255,64,0,255,80
  21. 300 data 1,255,64,1,125,64,0,105,0
  22. 310 data 0,170,0,0,175,0,0,174,128
  23. 320 data 0,163,160,0,40,228,1,85,84
  24. 330 rem **********phase 3**************
  25. 340 for n=8832 to 8894:read q:poke n,q:next
  26. 350 data 0,10,0,0,42,128,1,70,128
  27. 360 data 1,85,160,0,85,160,0,21,32
  28. 370 data 0,7,8,0,15,0,0,61,192
  29. 380 data 0,253,192,0,253,112,0,253,112
  30. 390 data 0,245,240,0,53,192,0,22,128
  31. 400 data 0,234,0,0,235,0,0,42,128
  32. 410 data 0,43,64,0,10,64,1,85,64
  33. 420 rem **********phase 4**************
  34. 430 for n=8896 to 8958:read q:poke n,q:next
  35. 440 data 0,10,0,0,42,128,1,70,128
  36. 450 data 1,85,160,0,85,160,0,21,40
  37. 460 data 0,7,0,0,15,0,0,61,192
  38. 470 data 0,245,192,0,245,240,0,245,240
  39. 480 data 0,215,240,0,87,192,0,106,128
  40. 490 data 0,234,0,2,234,0,2,186,128
  41. 500 data 0,174,160,0,84,160,1,85,80
  42. 510 rem **********phase 5**************
  43. 520 for n=8960 to 9022:read q:poke n,q:next
  44. 530 data 0,10,0,0,42,128,1,70,128
  45. 540 data 1,85,160,0,85,168,0,21,32
  46. 550 data 0,7,0,0,15,0,0,61,192
  47. 560 data 0,245,192,0,245,240,0,215,240
  48. 570 data 0,87,244,1,95,212,1,106,128
  49. 580 data 0,42,128,0,174,128,2,178,160
  50. 590 data 2,176,169,2,176,41,21,80,85
  51. 600 rem **********phase 6**************
  52. 610 for n=9024 to 9086:read q:poke n,q:next
  53. 620 data 0,10,0,0,42,128,1,70,128
  54. 630 data 1,85,160,0,85,168,0,21,32
  55. 640 data 0,7,0,0,15,0,0,61,192
  56. 650 data 0,245,192,0,245,240,0,245,240
  57. 660 data 0,245,240,0,215,208,0,86,144
  58. 670 data 0,42,128,0,234,128,0,174,128
  59. 680 data 0,174,128,0,43,160,5,85,80
  60. 690 rem **********phase 7**************
  61. 700 for n=9088 to 9150:read q:poke n,q:next
  62. 710 data 0,10,0,0,42,128,1,70,128
  63. 720 data 1,85,160,0,85,160,0,21,40
  64. 730 data 0,7,0,0,15,0,0,61,192
  65. 740 data 0,253,192,0,253,112,0,253,112
  66. 750 data 0,245,240,0,245,192,0,22,128
  67. 760 data 0,42,128,0,42,128,0,42,128
  68. 770 data 0,40,224,0,40,244,0,85,84
  69. 780 rem **********phase 8**************
  70. 790 for n=9152 to 9214:read q:poke n,q:next
  71. 800 data 0,10,0,0,42,128,1,70,128
  72. 810 data 1,85,160,0,85,160,0,21,32
  73. 820 data 0,7,8,0,15,0,0,61,192
  74. 830 data 0,253,64,0,253,112,0,255,80
  75. 840 data 0,255,80,0,253,64,0,117,64
  76. 850 data 0,42,128,0,42,128,0,171,160
  77. 860 data 0,160,228,0,160,20,5,81,80
  78. 870 rem *******************************
  79. 880 print"sprite-daten 2 sind installiert!"
  80. 890 end
  81.